home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / cnet / netsec13.lha / Net.rx < prev    next >
Text File  |  1999-01-15  |  4KB  |  74 lines
  1. /*************************************************************\
  2.  $VER: Network_Secretary, v1.3 (15-Jan-99) by Carlos A. Roldan
  3.                (c)1996 - 1999 Carlos A. Roldan
  4. \*************************************************************/
  5. vr="Network Secretary v1.3"
  6. tr=transmit;se=sendstring;gu=getuser;bf=bufferflush;gt=getchar;le=logentry
  7. signal on SYNTAX;signal on ERROR;signal on IOERR;options results
  8. gu 1;USER=result;gu 39;UUCP=result;gu 1311992;DIR=result
  9. B=" ";C="Í";z=79;L="c9"COPIES(c,z);B=" "
  10. P="Mail:Users/";P1=P||UUCP"/_NetSec";P2=P1".temp"
  11. START:;tr "f1*4"dir"menu}";se "cfWhat is your selection? q1";gt
  12. a=index("AEVKLSQ?/",result);if a=0 then a=7;if a=8|a=9 then a=8
  13. signal ('OP'a)
  14. OP1:;call AD;signal START;OP2:;call LI;call ED;signal START
  15. OP3:;call LI;call IN;signal START;OP4:;call LI;call KI;signal START
  16. OP5:;do;call LI;tr l"n1cf"center("Press any key...",z)"q1g1";signal START;end
  17. OP6:;call LI;call MS;signal START;OP7:;signal QU;OP8:;call AB;signal START
  18. AD:w="Enter";call EX;if net='' then return
  19. se "cfn3Is cb"net" cfcorrect? c9[cbYcfes/cbNcfo/cbAcfbortc9]q1"
  20. gt;a=index("YNA",result);if a=0 then a=3;signal ('A'a)
  21. A2:;signal AD;A3:;return;A1:call com;signal sa
  22. COM:
  23. tr "f1n1cb"center("Please enter comment for:",79)"n2cf"center(net,79)
  24. se "n3c9>cfI4608 75}";gu 70;co=result;;return
  25. SA:;call CHK;call open(f,p1,'A');call writeln(f,net'|'co);call close(f)
  26. tr "cfn2Saving...$ Qsort from "p1" to "p2"}$ Copy from "p2" to "p1"}"
  27. tr "$ delete "p2"}";return
  28. LI:
  29. call CHK;call open(f,p1,'R');do x=1 until EOF(f);h.x=readln(f)
  30. parse var h.x na.x'|'co.x;se 'c9.';end x;tr 'q1';call close(f);tot=x-1
  31. tr "f1cfn1"center(vr,z)"n1"l;do i=1 to tot;tr "q1cf"i"cb "na.i"q1"
  32. if index(i/15,".")=0 then do;se "n1cfContinue? (cbYcf/n): ";gt
  33. if upper(result)="N" | result="###PANIC" then do;se "h17}";return;leave i
  34. end;else tr "f1cfn1"center(vr,z)"n1"l;end;end;return
  35. MS:;w="Netmail";call PR;if ed=""|ed="0"|ed>TOT then return
  36. tr "f1n2ceSending mail to:cf" na.ed"n2q1"
  37. bbscommand "MS "na.ed;return
  38. QU:;bf;tr "cfn4Back to bbs...q1";exit
  39. CHK:;if ~exists(p1) then do;call open(f,p1,'w');call close(f);end;return
  40. KI:w="Delete";call PR
  41. if ed=""|ed="0"|ed>tot then return;if ed>0 & ed~>tot then do;kill=na.ed
  42. se "f1n1cfDeletecfc9 "kill" cf(cbyescf/cbNocf)?: q1";gt;an=upper(result)
  43. if an~="Y" then do;tr "c2No!c3";return;end;tr "c2Deleting, please wait...c3"
  44. KI2:do x=ed to tot-1;x2=x+1;na.x=na.x2;co.x=co.x2;end
  45. tot=tot-1;call open(f,p1,'W');do x=1 to tot
  46. call writeln(f,na.x'|'co.x);se 'c9.';end;call close(f);return
  47. ED:w="Edit";call PR
  48. if ed=""|ed="0"|ed>tot then return;if ed>0 & ed~>tot then nbbs=na.ed
  49. addkeys na.ed;call EX;if net=''then return;se "n1cfEdit comment for above entry? [Yes or No]"
  50. gt;a=index('YN',result);if a=0 then a=2;signal ('B'a)
  51. B1:;addkeys co.ed;call com;signal B3;B2:;co=co.ed;B3:;call KI2;call SA;return
  52. IN:;w="View";call PR;if ed=""|ed="0"|ed>TOT then return
  53. tr "f1n1"l"cfn1"center(na.ed,79)"n1"l
  54. if co.ed="" then co.ed="<None Available>"
  55. tr "n2cc"Center(co.ed,79)"cfn3"center("Press any key...",79)"q1g1";return
  56. EX:
  57. tr "f1n1cf"w" handle or name and network address in the following format:n1"l
  58. tr "cbCarlos Roldan@1:367/66.0"COPIES(b,41)"c9(cfFIDO Examplec9)"
  59. tr "cbcaroldan@hotmail.com"COPIES(b,45)"c9(cfUUCP Examplec9)"
  60. tr l;se "c9>cfI4096 80}";gu 70;Net=result;return
  61. PR:;se l"n1cfNumber of item to "w": (0=Return To Main Menu) I0 }q1"
  62. gu 70;ed=result;return
  63. AB:
  64. tr "f1n1"l"n1cf"center(vr,z)"n1"l"n2cf"center("Written in ARexx by:",z)
  65. tr center("Carlos A. Roldan",z)"n1"center("6975 Parkwood",z)
  66. tr center("Detroit, MI 48210",z)"n1"l"n1cf"
  67. tr center("croldan@visitus.net",z)"n2"l"n1cf"
  68. tr center("Press any key...",z)"q1g1";return
  69. SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)'
  70. e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:';gu 1311992;a=result
  71. gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;le e1;le e2
  72. e=sourceline(sigl);do while e~='';e3='c9Sourcecf: cd'left(e,37);tr e3
  73. le e3;e=substr(e,37);end;bf;exit
  74.